使用sql填充数据

使用sql填充数据

1.创建表

create table test (
name string,
activity string
) row format delimited fields terminated by '\t';

2.构造数据

张三	吃饭
张三	
张三	
张三	
王五	打豆豆
王五	
王五	
赵四	唱歌
赵四	
赵四	
赵四	
赵四	
赵四	
赵四	

3.处理思路

3.1 使用sum()over(order by)开窗函数特性进行累积分组
select 
        sum(flag)over(order by rownum) as category,
        name,
        activity 
from 
    (
    select 
        row_number()over() as rownum,
        case when activity =='' then 0 else 1 end as flag,
        name,
        activity  
    from test
    ) tab_test
1       张三    吃饭
1       张三    
1       张三    
1       张三    
2       王五    打豆豆
2       王五    
2       王五    
3       赵四    唱歌
3       赵四    
3       赵四    
3       赵四    
3       赵四    
3       赵四    
3       赵四    
3.2 将非空的数据筛选出来进行分组
 select 
        row_number()over() as category,
        name,
        activity  
 from test 
 where activity !=''
1       张三    吃饭
2       王五    打豆豆
3       赵四    唱歌

3.3 将上两步结果进行关联
select
    tab_test_origin.name,
    tab_category.activity
from
    (
    select 
        sum(flag)over(order by rownum) as category,
        name,
        activity 
    from 
        (
        select 
            row_number()over() as rownum,
            case when activity =='' then 0 else 1 end as flag,
            name,
            activity  
        from test
        ) tab_test
    ) tab_test_origin
inner join 
    (
    select 
        row_number()over() as category,
        name,
        activity  
    from test where activity !=''
    ) as tab_category
on tab_test_origin.category=tab_category.category
张三    吃饭
张三    吃饭
张三    吃饭
张三    吃饭
王五    打豆豆
王五    打豆豆
王五    打豆豆
赵四    唱歌
赵四    唱歌
赵四    唱歌
赵四    唱歌
赵四    唱歌
赵四    唱歌
赵四    唱歌
  • 2
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
使用 SQL 语句填充 Excel 单元格,你可以使用 VBA 中的 ADO(ActiveX Data Objects)连接到数据库,执行 SQL 查询,并将结果加载到 Excel 单元格中。以下是一个示例: ```vba Sub FillExcelCellsWithSQLData() Dim conn As Object Dim rs As Object Dim strConn As String Dim strSQL As String Dim rng As Range Dim i As Integer ' 创建连接对象 Set conn = CreateObject("ODB.Connection") ' 设置连接字符串,这里假设你要连接的数据库是一个 Access 文件,路径为 "C:\path\to\your\database.accdb" strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;" ' 打开连接 conn.Open strConn ' 构建查询语句 strSQL = "SELECT Name, Age FROM TableName WHERE Age > 30" ' 创建记录集对象 Set rs = CreateObject("ADODB.Recordset") ' 执行查询操作 rs.Open strSQL, conn ' 指定要填充数据的单元格范围,这里假设要填充到 Sheet1 的 A2:Bx 区域 Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A2:B" & rs.RecordCount + 1) ' 将查询结果加载到 Excel 单元格中 i = 1 Do Until rs.EOF rng.Cells(i, 1).Value = rs.Fields("Name").Value rng.Cells(i, 2).Value = rs.Fields("Age").Value rs.MoveNext i = i + 1 Loop ' 关闭记录集和连接对象 rs.Close conn.Close ' 释放对象 Set rs = Nothing Set conn = Nothing End Sub ``` 在上面的示例中,我们使用 ADO 创建了一个连接对象 `conn`,并设置连接字符串 `strConn` 来连接到数据库。然后,我们构建了一个查询语句 `strSQL`,并使用记录集对象 `rs` 执行查询操作。接下来,我们指定要填充数据的单元格范围 `rng`,并使用循环将查询结果逐行填充到 Excel 单元格中。 请注意,你需要根据实际情况修改连接字符串中的数据库路径、查询语句和要填充数据的单元格范围。另外,你还需要在 VBA 编辑器的工具->引用中添加对 "Microsoft ActiveX Data Objects x.x Library" 的引用(x.x 表示版本号)。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值